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FillDataSet Method 



Public Function XXXXFillDataSet(ByVaI dataSet As DataSet{, ByVal {ParameterName} As System. {ParameterType}}) As Long 

' Copy input Parameter Values to the Parameter Collection 
DIM vtParameter As Varient 
vtParameteM = {ParameterName} 

Set {Adapterinstance}.SelectCommand.Parameters.item(ParameterName.Value=vtParameter1 
'Create an error handling block in case filldataset throws an exception 
Try 

'Load dataSet from the command 

XXXXXFillDataSet = {Adapterlnstance}.FillDataSet(dataset) 
Catch eFillExecption as Exception 

'if we can do a debug. print without a reference, then we should print the 

'error info to the output window and re-throw the error. 
End ^ 701 

End Function 
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UpdateDataSet Method 

Rfflblic Function XXXXUodateDataSet (ByVal updateDataSet As DataSet) As Long 

f const DataCursorRowState flag = DataCursorRowState.new | DataCursorRowState. Deleted | 
SitaCursorRowState.ModifiedCurrent; 
|*y DataRowfl datarows = dataTable.Select(" " flag); 

H Dim UpdateRows as DataRows() 
O Dim NewRows as DataRows() 
Q Dim DeletedRows as DataRows() 



' Get Aii of the Deleted Rows and Update the Data Store 

DeletedRows = UpdateDataSet.Selectf ", " DataCursorRowState.Deleted) 
If 0 < dataRowLength then 

Update(DeletedRows t Adapterinstance.DefaultSourceTableName); 

End If 

' Get All of the Updates Rows and Update the Data Store 

UpdatedRows = UpdateDataSet.Seiect(" ", " DataCursorRowState.ModifiedCurrent) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 

* Get All of the New Rows and Update the Data Store 

NewRows = UpdateDataSet.Selectf " DataCursorRowState. New) 
If 0 < dataRowLength then 

Update(DeletedRows, Adapterlnstance.DefaultSourceTableName); 

End If 
End Function 
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FillAIIDataSet 



Public Sub FillAIIDataSet(ByVal dataset As DataSet(, ByVal Parameters As System. {ParameterType}) 

' The line below is added for each adapter on the Virtual Design Surface 
' Passing into the function only the necessary parameters 
(AdapterNamel)FillDataSet dataset{, _parameters} 
(AdapterName2)FillDataSet dataset{, _parameters} 



* 



* 



End Sub 



* 



(AdapterNameN)FillDataSet dataset{, ^parameters} 
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Public Sub Update{DataSetName} (ByVal dataset As DataSet) 



The line below is added for each adapter on the Virtual Design Surface 



(AdapterNamel)Update dataSet 
(AdapterName2)Update dataSet 
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End Sub 
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Public Sub FillAIIDataSet(ByVal PurchaseOrder As DataSet(, ByVal Parameters As 
System.{ParameterType}) 

CustomerFillDataSet PurchaseOrder(, _parameters} 
OrderFillDataSet PurchaseOrder(, ^parameters} 
OrderDetaiiFillDataSet PurchaseOrder(, _parameters} 
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End Sub 

Public Sub UpdateAII (ByVal PurchaseOrder As DataSet) 

' The line below is added for each adapter on the Virtual Design Surface 

OrderDetailUpdate (PurchaseOrder, Filtered (Delete)) 
OrderUpdate (PurchaseOrder, Filtered (Delete)) 
CustomerUpdate (PurchaseOrder, Filtered (Delete)) 

' The line below is added for each adapter on the Virtual Design Surface 

OrderDetailUpdate (PurchaseOrder, Filtered (Insert | Update)) 
OrderUpdate (PurchaseOrder, Filtered (Insert | Update)) 
CustomerUpdate (PurchaseOrder, Filtered (Insert | Update)) 

End Sub 
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